home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / type setter.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  93 lines
  1. 1 REM THIS VERSION IS FOR GEMINI 10X     FOR OTHER PRINTERS EDIT LINES 240-360
  2. 2 DIMMD(20,1),MD$(20,1)
  3. 5 POKE 39928,10:POKE 39929,48
  4. 6 PRINT"[147]         PRINTER SET UP PROGRAM"
  5. 7 PRINT"THIS PROGRAM ALLOWS YOU TO CHANGE THE"
  6. 8 PRINT"TYPESTYLES OF YOUR EPSON / GEMINI":PRINT"PRINTER FROM A MENU"
  7. 9 PRINT"IF YOU HAVE ANOTHER PRINTER THEN EDIT":PRINT"THE CHR$ CODES ACCORDING";
  8. 10 PRINT" TO YOUR PRINTER MANUAL."
  9. 11 PRINTTAB(10)"HIT ANY KEY TO START"
  10. 12 GETX$:IFX$=""THEN12
  11. 15 PRINT"[147]"
  12. 20 MD$(1,1)=" 1. STANDARD "
  13. 30 MD$(2,1)=" 2. ITALICS  "
  14. 40 MD$(3,1)=" 3. INTERNATIONAL"
  15. 50 MD$(4,1)=" 4. PICA SIZE"
  16. 60 MD$(5,1)=" 5. ELITE SIZE"
  17. 70 MD$(6,1)=" 6. CONDENSED "
  18. 80 MD$(7,1)=" 7. ENLARGED  "
  19. 90 MD$(8,1)=" 8. NORMAL    "
  20. 100 MD$(9,1)=" 9. EMPHASIZED"
  21. 110 MD$(10,1)="10. DOUBLE STRIKE"
  22. 130 MD$(11,1)="11. UNDERLINE"
  23. 140 MD$(12,1)="12. SUPERSCRIPT"
  24. 150 MD$(13,1)="13. SUBSCRIPT"
  25. 160 MD$(14,1)="14. CANCEL"
  26. 165 FORU=1TO20:IFMD$(U,1)<>""THENPRINTTAB(10)MD$(U,1)
  27. 166 NEXT
  28. 170 PRINT TAB(8)" -------------------"
  29. 200 INPUT"       ENTER PRINT OPTION DESIRED ";C$
  30. 230 C=VAL(C$):IFC<1ORC>20THENPRINT"[145][145][145]":GOTO200
  31. 231 IFMD$(C,1)=""THENPRINT"[145][145][145]":GOTO200
  32. 233 MD(C,1)=1
  33. 234 MD(C,1)=1
  34. 235 ONCGOTO240,250,700,270,280,290,300,310,320,330,340,350,360,900
  35. 240 C$=CHR$(27)+CHR$(53):GOTO 500
  36. 250 C$=CHR$(27)+CHR$(52):GOTO 500
  37. 270 C$=CHR$(27)+CHR$(66)+CHR$(1):GOTO 500
  38. 280 C$=CHR$(27)+CHR$(66)+CHR$(2):GOTO 500
  39. 290 C$=CHR$(15):GOTO 500
  40. 300 C$=CHR$(27)+CHR$(87)+CHR$(1):GOTO 500
  41. 310 C$=CHR$(20):GOTO 500
  42. 320 C$=CHR$(27)+CHR$(69):GOTO 500
  43. 330 C$=CHR$(27)+CHR$(71):GOTO 500
  44. 340 C$=CHR$(27)+CHR$(45)+CHR$(1):GOTO 500
  45. 350 C$=CHR$(27)+CHR$(83)+CHR$(0):GOTO 500
  46. 360 C$=CHR$(27)+CHR$(83)+CHR$(1):GOTO 500
  47. 380 END
  48. 500 OPEN4,4
  49. 510 PRINT#4,C$
  50. 514 FORZ=1TO20
  51. 515 IFMD(Z,1)=1THENPRINT#4,MD$(Z,1);"  ";
  52. 516 NEXT
  53. 520 CLOSE 4
  54. 530 PRINT"[147]DO YOU WISH TO SELECT A":PRINT" SUPPLEMENTARY MODE?"
  55. 540 GET L$:IF L$=""THEN 540
  56. 550 IF L$="Y" THEN 15
  57. 560 IF L$="N" THEN PRINT TAB(3)"DO YOU WANT TO RETURN TO THE MENU?"
  58. 570 GET X$:IF X$=""THEN570
  59. 571 IFX$="Y" THEN 15
  60. 572 END
  61. 576 POKE39928,10:POKE39929,96 :POKE 631,131:POKE 198,1
  62. 580 END
  63. 700 PRINT "[147]" TAB(15)"1. U.S.A."
  64. 710 PRINT TAB(15)"2. ENGLAND"
  65. 720 PRINT TAB(15)"3. GERMANY"
  66. 730 PRINT TAB(15)"4. DENMARK"
  67. 740 PRINT TAB(15)"5. FRANCE"
  68. 750 PRINT TAB(15)"6. SWEDEN"
  69. 760 PRINT TAB(15)"7. ITALY"
  70. 770 PRINT TAB(15)"8. SPAIN"
  71. 780 PRINT TAB(15) "----------"
  72. 790 PRINT TAB(95) "ENTER OPTION"
  73. 800 INPUT  " NUMBER";N :N=N-1
  74. 810 IFN<0ORN>7THENPRINTTAB(95)"INVALID ENTRY":FORI=1TO500:NEXTI:GOTO700
  75. 820 IF N<7 OR N>0 THEN N=N
  76. 830 C$=CHR$(27)+CHR$(55)+CHR$(N):GOTO 500
  77. 900 PRINT "[147]"TAB(10)"1. ENLARGED"
  78. 910 PRINT TAB(10)"2. DOUBLE STRIKE"
  79. 920 PRINT TAB(10)"3. EMPHASIZED"
  80. 930 PRINT TAB(10)"4. UNDERLINE"
  81. 940 PRINT TAB(10)"5. SUPER/SUBSCRIPT"
  82. 950 PRINT TAB(10)"6. UNIDIRECTIONAL"
  83. 960 PRINT TAB(10)"------------------"
  84. 970 PRINT TAB(87)"ENTER MODE TO BE CANCELED"
  85. 980 GET D$:IFD$=""THEN 980
  86. 990 IFD$<"1"ORD$>"6"THENPRINTTAB(95)"INVALID ENTRY":FORI=1TO500:NEXTI:GOTO900
  87. 1000 IF D$="1" THEN C$=CHR$(27)+CHR$(87)+CHR$(0):GOTO 500
  88. 1010 IF D$="2" THEN C$=CHR$(27)+CHR$(72):GOTO 500
  89. 1020 IF D$="3" THEN C$=CHR$(27)+CHR$(87)+CHR$(0):GOTO 500
  90. 1030 IF D$="4" THEN C$=CHR$(27)+CHR$(45)+CHR$(0):GOTO 500
  91. 1040 IF D$="5" THEN C$=CHR$(27)+CHR$(84):GOTO 500
  92. 1050 IF D$="6" THEN C$=CHR$(27)+CHR$(85)+CHR$(0):GOTO 500
  93.